home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / twm-listing 7 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  475b  |  27 lines
  1. 0 REM BOX-DEMO 1
  2. 5 :
  3. 10 SYS 32168
  4. 20 :
  5. 30 REM TEXTE NACH B$(), FARBEN NACH F()
  6. 35 REM  ANZAHL NACH BN
  7. 40 BN=10 :DIM B$(BN),F(BN)
  8. 50 FOR B=1 TO BN
  9. 60 B$(B)="BOX"+STR$(B)
  10. 70 F(B)=(F(B-1)+1)AND15 :IF F(B)<2 THEN F(B)=2
  11. 80 NEXT
  12. 90 :
  13. 100 (null) :Z=0 :S=0
  14. 110 FOR B=1 TO BN
  15. 120 S2=S+LEN(B$(B))+1
  16. 130 IF S2>39 THEN Z=Z+3 :S=0 :GOTO 120
  17. 140 (null) Z+1,S+1,F(B),B$(B)
  18. 150 (null) F(B),Z,S,Z+2,S2
  19. 160 (null)B,Z,S,Z+2,S2,F(B)+128
  20. 170 S=S2+1
  21. 180 NEXT B
  22. 190 :
  23. 200 B=5
  24. 210 (null) B
  25. 220 :
  26. 230 (null) 10,1,"SIE HABEN NR."+STR$(B)+" AUSGEWAEHLT !"
  27.